#include <errno.h>
#include <stdarg.h>
#include "ourhdr.h"

static void err_doit(int, const char *, va_list);
static void err_doit_adv(int, int, const char *, va_list);

char * pname = NULL;    /* caller can set this from argv[0] */

void err_ret(const char * fmt, ...) {
    va_list ap;
    va_start(ap, fmt);
    err_doit(1, fmt, ap);
    va_end(ap);
    return;
}

void err_sys(const char * fmt, ...) {
    va_list ap;
    va_start(ap, fmt);
    err_doit(1, fmt, ap);
    va_end(ap);
    exit(1);
}

void err_dump(const char * fmt, ...) {
    va_list ap;
    va_start(ap, fmt);
    err_doit(1, fmt, ap);
    va_end(ap);
    abort();
}

void err_msg(const char * fmt, ...) {
    va_list ap; 
    va_start(ap, fmt);
    err_doit(0, fmt, ap);
    va_end(ap);
    return;
}

void err_quit(const char * fmt, ...) {
    va_list ap;
    va_start(ap, fmt);
    err_doit(0, fmt, ap);
    va_end(ap);
    exit(1);
}

static void err_doit(int errnoflag, const char * fmt, va_list ap) {
    int errno_save; 
    char buf[MAXLINE];
    errno_save= errno;
    vsprintf(buf, fmt, ap);
    if (errnoflag)
        sprintf(buf+strlen(buf), ": %s(errno %d)", strerror(errno_save), errno_save);
    strcat(buf, "\n");
    fflush(stdout);
    fputs(buf, stderr);
    fflush(NULL);
    return;
} 

/**
 * Print a message and return to caller
 * Caller specifies "errnoflag".
 *
 */
static void err_doit_adv(int errnoflag, int error, const char *fmt, va_list ap) {
    char buf[MAXLINE];
    vsnprintf(buf, MAXLINE-1, fmt, ap);
    if (errnoflag)
        snprintf(buf+strlen(buf), MAXLINE-strlen(buf)-1, ": %s", strerror(error));
    strcat(buf, "\n");
    fflush(stdout); /* in case stdout and stderr are the same，毕竟stdout 里的缓冲数据在前，如果两者同时写向终端，下一句 fputs buf 由于有换行符可能在 stdout 之前写向终端 */
    fputs(buf, stderr);
    fflush(NULL);
}

void err_exit(int error, const char *fmt, ...) {
    va_list ap;  
    va_start(ap, fmt);
    err_doit_adv(1, error, fmt, ap);
    va_end(ap);
    exit(1);
}

void err_cont(int error, const char *fmt, ...) {
    va_list ap;
    va_start(ap, fmt);
    err_doit_adv(1, error, fmt, ap);
    va_end(ap);
}

